home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / mcedit10.zip / MAGGLASS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-19  |  2KB  |  54 lines

  1. PROCEDURE magglassMouse;
  2.  
  3. var
  4.   magglassmasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   magglassmasks[0,0] := $F83F;    {1111100000111111}
  12.   magglassmasks[0,1] := $E3CF;    {1110001111001111}
  13.   magglassmasks[0,2] := $C5F7;    {1100010111110111}
  14.   magglassmasks[0,3] := $99FB;    {1001100111111011}
  15.   magglassmasks[0,4] := $BBFB;    {1011101111111011}
  16.   magglassmasks[0,5] := $BFF3;    {1011111111110011}
  17.   magglassmasks[0,6] := $BFF3;    {1011111111110011}
  18.   magglassmasks[0,7] := $DFC7;    {1101111111000111}
  19.   magglassmasks[0,8] := $E70F;    {1110011100001111}
  20.   magglassmasks[0,9] := $F83F;    {1111100000111111}
  21.   magglassmasks[0,10] := $FC7F;   {1111110001111111}
  22.   magglassmasks[0,11] := $FC7F;   {1111110001111111}
  23.   magglassmasks[0,12] := $FC7F;   {1111110001111111}
  24.   magglassmasks[0,13] := $FC7F;   {1111110001111111}
  25.   magglassmasks[0,14] := $FC7F;   {1111110001111111}
  26.   magglassmasks[0,15] := $FC7F;   {1111110001111111}
  27.  
  28. { Cursor Mask }
  29.  
  30.   magglassmasks[1,0] := $0000;    {0000000000000000}
  31.   magglassmasks[1,1] := $0400;    {0000010000000000}
  32.   magglassmasks[1,2] := $1A00;    {0001101000000000}
  33.   magglassmasks[1,3] := $2600;    {0010011000000000}
  34.   magglassmasks[1,4] := $0400;    {0000010000000000}
  35.   magglassmasks[1,5] := $0008;    {0000000000001000}
  36.   magglassmasks[1,6] := $0008;    {0000000000001000}
  37.   magglassmasks[1,7] := $0030;    {0000000000110000}
  38.   magglassmasks[1,8] := $00C0;    {0000000011000000}
  39.   magglassmasks[1,9] := $0000;    {0000000000000000}
  40.   magglassmasks[1,10] := $0100;   {0000000100000000}
  41.   magglassmasks[1,11] := $0100;   {0000000100000000}
  42.   magglassmasks[1,12] := $0100;   {0000000100000000}
  43.   magglassmasks[1,13] := $0100;   {0000000100000000}
  44.   magglassmasks[1,14] := $0100;   {0000000100000000}
  45.   magglassmasks[1,15] := $0000;   {0000000000000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(magglassmasks);
  50.   regs.ES := seg(magglassmasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.